10 PRINT"[147][159]":POKE53280,6:POKE53281,6:PRINT"KEYBOARD CONSTRUCTION SET[155]"
20 N=41117:M=49221:PRINT"ENTER NEW LANGUAGE NAME":INPUT B$
30 PRINT"PRINTER (Y/N)?";
40 GETA$:IFA$=""THEN40
50 IFA$="Y"THENGOSUB200
60 X$="":IFN>=41372THEN90
70 N=N+1:X=PEEK(N):IFX<128THENX$=X$+CHR$(X):GOTO70
80 X$=X$+CHR$(X-128):LN=LEN(X$):GOSUB210:GOTO60
90 IFRT>0 THEN PRINT"TABLE TOO LONG":FOR I=1 TO 1500:NEXT:RUN
100 CLOSE4:POKEM,0:FORI=49152TO49220:READA:POKEI,A:F=F+A:NEXT
110 IFF<>10293THENPRINT"ERROR IN DATA STATEMENTS.":STOP
120 PRINT"[155]T[146][159]APE/[155]D[146][159]ISK?"
130 GETA$:IFA$=""ORA$<>"D"ANDA$<>"T"THEN130
134 IF A$="T" THEN 140
135 PRINT"GAZETTE DISK IS WRITE PROTECTED":PRINT"INSERT NEW DISK TO SAVE FILE"
136 PRINT" PRESS ANY KEY TO CONTINUE"
137 POKE 198,0:WAIT 198,1:GET MT$
140 DV=1-7*(A$="D"):IFDV=8THENB$="0:"+B$
150 F$=B$:POKE780,LEN(F$):A=PEEK(53)+256*PEEK(54)-LEN(F$):POKE782,A/256
160 POKE781,A-256*PEEK(782):SYS65469:POKE780,1:POKE781,DV:POKE782,PEEK(780)
170 SYS65466:POKE 251,0:POKE252,192:POKE781,69:POKE782,193:POKE780,251:SYS65496
180 PRINT:PRINT"LOAD"CHR$(34)B$CHR$(34)",8,1 -  NEW  -  SYS49152"
190 END
200 P=1:OPEN4,4:PRINT#4,"BASIC         "B$:PRINT#4:RETURN
210 N1=N-41117:PRINT"[147][155]TOTAL BYTES="N1" OVER/UNDER (+/-)="RT
220 A$=X$:PRINT"[150]"X$TAB(10)"[159]";:INPUTA$:IFA$=X$THENPRINTA$
230 LA=LEN(A$):D=LA-LN:RT=RT+D
240 FORI=1TOLA:POKEM,ASC(MID$(A$,I,1)):M=M+1:NEXT:POKEM-1,PEEK(M-1)+128
250 IFPTHENPRINT#4,X$;:FORI=1TO15-LEN(X$):PRINT#4," ";:NEXT:PRINT#4,A$
260 RETURN
270 DATA 169,0,133,251,169,160,133,252,160,0
280 DATA 162,32,177,251,145,251,200,208,249,230
290 DATA 252,202,208,244,169,69,141,189,165,141
300 DATA 0,166,141,49,167,141,57,167,169,192
310 DATA 141,190,165,141,1,166,141,50,167,141
320 DATA 58,167,169,68,141,251,165,169,192,141
330 DATA 252,165,165,1,41,254,133,1,96